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Accounts Receivable 

Model I 

26-1555 All Versions 
April 10, 1980 


Problem 

If any of the following syuptoras occur the index has been crashed and 
the following Recovery program should be run. 

Unejqpected Error Code 64, Line 2850 CARS") 

Unejqpected Error Code 64, Line 1430 CARS") 

Bad Record Nuirber on program line with "(3ET" or "PUT" stateoent 
l"hen sorting, the statement "duplicate account # 0 exists" appears 
or transactions appear under the wrong account - i.e. sorte transactions for 
account 3 are on account 20's bill, etc. 


Solution 

In order to correct these above errors please run the following program 
written to reconstruct "(3JSINDEX" and "TRANSACT" files of Model I Accounts 
Receivable program package: 

Quicker routines can be written, but this vgas written with the customer in 
mind. This routine will not recapture report nuirbers nor session numbers. 
It is merely intended to aid in recapturing data files rendered 
inaccessible because the Customer Index or Transaction files have been 
damaged or scrambled. 

***** Ihis is a last resort. All transactions must be checked afterv^ds 
and verified. This program will pick vp all transactions on the disk, 
including deleted transactions and previous period transactions not yet 
over-written in the current period. 


1. In BASIC type the following program with each line followed by an 
<ENrER> 


(See page 2 for program) 
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1 ' *** RECOVER *** (C) 1981 TANDY OORP 

2 ' *** RECOVERS POINTERS/iNDEX FOR AOCTS. RBCEIVABIE 

3 ' PROGRAM DISK SEJOUID BE IN DRIVE 0 , DATA DISK IN DRIVE 1-ON 3 

I»IVE SYSTEMS, SECOND DATA DISK IN DRIVE 2. 

4 ' RECOVER WILL RUN SORT AND RETURN ID ARS ON COMPLETION. 

5 ' **** FOR VERSION PRICR TO 3.j3, LINE 21J3 MUST BE MDDIPIED; CHANGE 

"JD*128ASD$" TO "JD*127ASD$" AND "5ASDE$" TO "4ASDE:$" 

K? CLEAR500:DEFINrA-Z:CLS:INPUT"PASSW3RD";P$;INPUT"2 OR 3 DRIVE SYSTEM";S 
20 QOSOB22i2l :OPEN"R", 1 ,PT$: NB=IDF (1) *8 :OPEN"R", 2 ,PD$: NAi=IDF (2) *2 
30 DIMrR(NT,2),AC(NA,2);CIS:PRINT@154,"FIRST PASS":IRINT@402,"WORKING ON 
TRANSACTION #" 

40 KK=Nr;EDRK=lTDNT;GOSUBl80:PRINT@426 ,K;TR(K,0 )=CVI (Vl$); IEy0$<"A" 
ORV0$>"Z "THENKK=K: K=Nr 

50 NEXTK:PRINT@154,"SECOND PASS";IRINT@426," ";UN=KK:OT=KK-l;U=Ur; 

EORK=lTDUT; IFTR(K,0 )<0'fflENrR(K,0)=-TR(K,0) ;U=U-1 
60 PRINr@426,K:NEXT:CLS:PRINr@154,"FIRST PASS";PRINT@404,"WORKING ON 
ACOOUMT #" 

70 EDRJ=1TDNA;GDSUB200:PRINT@424,J;AC(J,0)=CVI(DD$) :IFAC(J,0)<1THENP=F+1 
ELSE)CV#=CV#+CVD(DB$) 

80 NEXT:TN=sJ-l:TI=TN-F:JJ=J-l;PRINr§154,"SECOND PASS";PRINT@424," 
UX=UT+(TR(UT,0)=1) 

90 EDRJ=lTOJJ;PRINT@424,J;PT=0:Pr=0:AC=AC(J,0) ;EORK=lTOUX: 

IFTR(K,0 )=ACTHENTR(PT, 2 )=K:TR (K, 1 )=PT:PT=K: IFETH3THENET=K 
100 NEXTK;AC(J,l)=ET:AC(J,2)=PT:NEXTJ:CIS;PRINr@402,"RESETriNG TRANSACTION 
POINTERS" 

110 EORK=1TOUT:QOSUB180;ISETV8$=MKI$(TR(K,1)) :ISETV9$=MKI$(TR(K,2)): 
PUT1,KR: NEXT tCLDSEl 

120 CLS:PRINTe404,"RESETTING ACCOUNT POINTERS" 

130 FDRJ=lTDTN;QOSUB200:LSBrDI$=^I$(AC(J,l)) :LSETDJ$^«KI$(AC(J,2)): 

PUT2, JR; NEXT: CIOSE2 

140 CLS:ERINT@410, "VRITING INDEX" :0PEN"0", 1, "CUSINDEX. "+P$+": 1": 

PRINT#1,TI;TN;F;U;OT;UN;0;1;1;1;1;1;1;1;1;STR$(CV#)V'D!0" 

150 EaiN=lT]OTN-l;CN=N:IFAC(N,0)<lTHEaiCN==-CN 

160 PRINT#1,CN;CN;CN:NEXT:CIOSE1:OPEN"0",1,"TRANSFER:!":PRINT#1,PI$: 

PRINT#1 ,PD$: PRINT#1 ,PS$: ERINT#1 ,PT$: ERINT#1 ,PG$ tCLOSE 
170 CLS;IRINT@410,"SC»TING DATA":CLEAR50:RUN"ARSORT" 

180 KR=INT((K-l)/8)+l:KD=K-8*INT((K-l)/8)-l 

190 FIEID1,KD*31ASVV$,1ASV0$,23ASV1$,2ASV8$,2ASV9$,3ASVX$:GET1,KR:RETURN 
200 JR=INT( (J-l)/2)+l:JD=J-2*INT( (J-l)/2)-l 

210 FIEI£)2 ,JD*128ASD$, 105ASD0$, 8ASDB$, 4ASDC$, 2ASCO$, 5ASDE$ , 2ASDI$, 2ASDJ$: 
GET2, JR rRETURN 

220 PT$="TRANSACT. "+P$+": "4CHR$ (47+S) :P$=P$+" :1" :PI$="OUSINDEX. "+P$: 
PD$="CUa)ATA. "+P$:PS$="CUSSE?njP. "+P$:PG$="GLFII£. "+P$:RETURN 

2. Type SAVE "RECOVERY" to save the program for later use. 

3. Type RUN and press <ENTER> to start the recovery process. 

4. If the program is ever needed again load it from the disk with 
LOAD"REOOVERy". 









